home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / fc20hpgm.arc / WORDSTAR.PCH < prev    next >
Text File  |  1986-12-22  |  3KB  |  106 lines
  1. A
  2. ;    This is file WORDSTAR.PCH
  3. ;
  4. ;The following command should be applied to WORDSTAR 3.3
  5. ;to speed up its screen access.  The first patch appeared
  6. ;in PC Magazine Volume 4, Number 10 - May 14, 1985.
  7. ;Other patches courtesy of Alexander V. Pinter.
  8. ;Note that the patched routines may not be in exactly
  9. ;the same place in your version of WS.
  10. ;DO NOT USE ON WORDSTAR 2000!
  11. ;Do not have DOSEDIT or the IBM COMMAND RETRIEVER
  12. ;loaded when applying these patches, or DEBUG
  13. ;will complain about EVERYTHING.
  14. ;You may only want to use part of these patches.
  15. ;With the following command, DEBUG will apply these
  16. ;patches to WordStar.  It will also display this
  17. ;patch file on the screen as it does it.
  18. ;For DOS 2, the comment lines will generate error msgs.
  19. ;This is OK!
  20. ;----------------------------------------------
  21. ;    debug ws.com <wordstar.pch
  22. ;----------------------------------------------
  23. ;The following routine will appear at ABOUT the same
  24. ;place in your version, check the address and
  25. ;change the patch address if it is different in your version.
  26. ;Look for this routine at this address (use the command U2AC4)
  27. ;xxxx:2AC4 BADA03    MOV DX,03DA
  28. ;xxxx:2AC7 EC        IN AL,DX
  29. ;xxxx:2AC8 A801     TEST AL,01
  30. ;xxxx:2ACA 75FB     JNZ 2AC7
  31. ;xxxx:2ACC FA           CLI
  32. ;xxxx:2ACD EC        IN AL,DX
  33. ;xxxx:2ACE A801     TEST AL,01
  34. ;xxxx:2AD0 74FB     JZ 2ACD
  35.  
  36. a2ac8
  37. db d0,c8,72
  38.  
  39. a2ace
  40. db d0,c8,73
  41.  
  42. A
  43. ;The following routine will appear at ABOUT the same
  44. ;place in your version, check the address and
  45. ;change the patch address if it is different in your version.
  46. ;Look for this routine at this address (use the command U2A66)
  47. ;xxxx:2A66 E82600    CALL 2A8F
  48. ;xxxx:2A69 C3        RET
  49.  
  50. a2a66
  51. jmp 2a8f
  52. nop
  53. ret
  54.  
  55. A
  56. ;The following routine will appear at ABOUT the same
  57. ;place in your version, check the address and
  58. ;change the patch address if it is different in your version.
  59. ;Look for this routine at this address (use the command U2A71)
  60. ;xxxx:2A71 E81500    CALL 2A89
  61. ;xxxx:2A74 FC        CLD
  62.  
  63. a2a71
  64. mov es,[44ce]
  65.  
  66. A
  67. ;The following routine will appear at ABOUT the same
  68. ;place in your version, check the address and
  69. ;change the patch address if it is different in your version.
  70. ;Look for this routine at this address (use the command U2A85)
  71. ;xxxx:2A85 E80700    CALL 2A8F
  72. ;xxxx:2A88 C3        RET
  73.  
  74. a2a85
  75. jmp 2a8f
  76. nop
  77. ret
  78.  
  79. A
  80. ;The following routine will appear at ABOUT the same
  81. ;place in your version, check the address and
  82. ;change the patch address if it is different in your version.
  83. ;Look for this routine at this address (use the command U2A94)
  84. ;xxxx:2A94 50        PUSH AX
  85. ;xxxx:2A95 E8F1FF    CALL 2A89
  86. ;xxxx:2A98 58        POP AX
  87. ;xxxx:2A99 D1E7        SHL DI,1
  88. ;xxxx:2A9B E80400    CALL 2AA2
  89. ;xxxx:2A9E E8EEFF    CALL 2A8F
  90. ;xxxx:2AA1 C3        RET
  91.  
  92. a2a94
  93. mov es,[44ce]
  94. shl di,1
  95. call 2aa2
  96. jmp 2a8f
  97. nop
  98. nop
  99. ret
  100.  
  101. A
  102. ;Write it all out and quit
  103.  
  104. w
  105. q
  106.